tfoiss 



Direct only: 

Cancel. 
Go. 

mm& 

.Form 1: 

Delete step 1.1, 

Delete part 1. 

Delete form 1. 

Delete all steps, 

Delete all parts. 

Delete all forms. 

Delete all. 
- Deletes all va lttggT^ 

■ReaeL olc«ik 3773. 

Indirect only: 

1.1 To step 3.7. 
1.1 To parf.3. 
1.1 Done. 
1.1 Stop. 



Both direct and indirect: 

Line . *•;■ . . 

Page. 

Set x=y+l. 

Do part 1. "Do sxe-p l-l • 

T)o T_a fcfi fl. ' b c 

£ypa-2+ 2, x, y + l -» .::- 

Type step 1.1. 

Type part 1. 

Type form 1. 

Type all steps. 

Type all parts*. 

Type all. forms. 

Type all values. 

Type "ok". 

Type size. 

Type a,-,b, c in form 1. 

Type a!/.. 



JOSS (continued) 



Functions: ' 

sqrt(x) 

log(x) 

exp(x) 

sin(x) 

cos(x) 

arg(x,y) 

ip(x) 

fp(x) ; 

ooef (x) - 'cLf []<) 
ofxOQ , TCf (jc) 

sgn(x) 

max(a,b,. . . t z) 
min(a,b, . . . ,z) 



The conditional clause may be used at the end of any legitimate step, 
if a<b or c«=d and e£x£f. ' 

All six numeriaal relations may be used. The "and" and "or" are 
evaluated from left to right. 

Brackets and parentheses may be used inter changably. The absolute 
value bars may be used for brackets in expressions but not for 
enclosing subscripts or arguments. 

The dollar sign may be used to refer to the line number on the page 
for editing purposes. 

An asterisk at either end of the input. line kills the line unless 
it is a form. 

Arithmetic operators: 

x+y x-y x»y x/y x*y 

52 letters for identifiers. Any letter may be singly or doubly 
subscripted. No declarations. A new assignment overrides a 
previous assignment even to the extent of changing dimensions. 
Subscripts must be integers from to 99. 

Activity of user during "green" and JOSS during "red" are mutually 
exclusive. A task may be completed or stopped or interrupted or 
errored. The last three changes to "green" are flagged by messages. 
Only one suspended task is allowed and that may be continued by 
Q(b Go or cancelled by Cancel or Do . 

Eight slots on the drum for users. &M§ 1024 words for each user 
which covers tables, steps, forms and values. User may type size 
of his program but is otherwise unconcerned for storage. 



JOSS (continued) 



Forms: 



Within a form one or more underline characters will be interpreted 
as a blank into which a number is to be placed in fixed point form. 
A string of periods will likewise be interpreted as a blank into 
which a number is to be placed in scientific notation (roughly— 
actually only the coefficient and scale factor exponent will appear). 
In both cases numbers will be rounded to fit. 



Numerical representation: 

Nine dedimal coefficient with sign and two decimal, scale factor 
exponent with sign. All constraints are in decimal therefore 
the binary nature of JOHNNIAH never shows through. Only this 
scientific notation is used so there are no special representations 
for "integer", "boolean", etc. 

■ : '■■•■■■/ ■"' ■ 

.,'/'■ 

>^?>t. cJUhaaJL- : -for X- }b)lo{S)ioo y 7.J ; ?.f? ; iS(.of)tS^. 




JOSS Regions: 





=» 


Directory for Routines 




A 


Character Properties of Input Characters 




B 


Drum Control Words 




C 


System Statistics 




D 


Drum Routines 




E 


Error Directory 




F 


Function Directory- 




G 


Process Directory 




H 


Context 




I 


Integers 




J 


Parameters, Origins, Constants 




K 


Constants General 




L 


Lists 




M 


Core Area for Drum Routines 




N 


Table of Powers of Ten 




P 


Single Data Words 




Q 


Lists 




R 


Read-Write- Interpret Block (82 words) 


- , 


S 


Output Block 


tc 


T 


Temporary Storage 


t 


U 


Tables 




V 


Variables 


t 


W 


Words 


t 


X 
Y 


Executive Routines 




Z 


Run Context and Statistics 



JOSS 412 Storage Assignment 



M 
B 
D 
F 
K 
X 
A 
U 

I 
E 
L 
T 
H 
J 
N 
W 
G 
R 
Z 
P 
S 

Q 
v 

Space 



Origin (8) 


Block Length 


Unused Gap 


5240 


240 





5620 


16 





5640 


16 


8 


5660 


16 


3 


5700 


48 


5 


5760 


16 





6000 


136 


4 


6210 


120 





6400 


84 


3 


6524 


12 


2 


6540 


32 


O^ 


6600 


24 


3 


6630 


8 





6640 


32 





6700 


20 


2 


6724 


12 





6740 


16 





6760 


16 


2 


7000 


82 





7122 


14 


? 


7140 


32 





7200 


76 


2 


7314 


20 


1 


7340 


64 


11 


7440 


224 






JOSS Routines: 

= Read clock 

= 1 Step one character 

= 2 Advance to non space 

= 3 Eliminate spaces 

= 4 Put (PI) in next S cell (P12)+l 

= 5 Converter 

6 Packer 

= 7 Unpacker 

= 8 Assign buffer 

= 9 Assign drum 

= 10 Deal out a storage space 

= 11 Unpack (Q3) 

= 12 Push Q2-Q3 Operand PDL 

= 13 Pop Q2-Q3 Operand PDL 

= 14 Push Q4-Q5 Operator PDL 

= 15 Pop Q4-Q5 Operator PDL 

= 16 Push Q6-Q7 Auxiliary PDL 

= 17 Pop Q6-Q7 Auxiliary PDL 

= 18 Push Q8-Q9 Control PDL 

= 19 Pop Q8-Q9 Control PDL 

= 20 Evaluate unsigned numerical expression 

= 21 Evaluate expression 

= 22 Type time line 

= 23 Evaluate condition 

= 24 Convert function to operator 



= 25 Output line from S to stn 

= 26 Evaluate grouped list 

= 27 Accumulate letters (6 max) 

= 28 Erase left linked list 

= 29 Erase right linked list 

= 30 Check range and pack (Q3) 

= 31 Add 

= 32 Subtract 

= 33 Multiply 

= 34 Divide 

= 35 Exponentiate 

= 36 Convert integer for output 

= 37 Simple direct tests 

= 38 Simple indirect tests 

= 39 Verify space and advance to nonspace in R 

= 40 Positive integer test on (Q3) 

= 41 Subscript range test and replace (Q3) 

= 42 Limit range test on (Q3) 

= 43 Deck test on (Q3) 

= 44 Part test on (Q3) 

= 45 Step test on (Q3) 

- 46 Form test on (Q3) 

= 47 Move stn to bottom of list 

= 48 'TO' routine 

- 49 Update time of last activity 
= 50 Find part a/c P20 



=51 Find step a/c P21 

= 52 Find form a/c P22 

= 53 Kick out current program (if any) 

=54 Bring in program a/c stn (if any) 

= 55 Switch to user (CL4-SU) 

= 56 Erase step a/c H21-H26 

= 57 Erase form a/c H24-H26 

= 58 Release current buffer (if any) for stn 

= 59 Release drum to available list 

= 60 Initialize drum for stn (H12) 

= 61 Convert time for output 

= 62 Insert space in output 

= 63 Copy step number from R to S 

= 64 Unpack message to S for output composition 

= 65 Output canned message 

= 66 Put (Pll) in next S cell (P12)+l 

= 67 Block transfer R->S 

= 68 Compute part (P20) for step (P21) 

= 69 Insert period and CR+EOM in output 

= 70 Compare (H21) w (H22) 

=71 Find single indexed value 

=72 Find double indexed value 

= 73 Assign value 

= 74 Evaluate indexed letter 

= 75 Erase value(s) for letter 

=76 Erase one level of control structure 



= 77 Match groupers 

= 78 Cancel 

= 79 Verify preceding space 

= 80 Transmit line for drum routine 



D Error routine 

D 1 Ext of G5 for 'all — ' 

D 2 Ext of G5 for spec . values 

D 3 Ext of G6 for 'all — ' 

D 4 Ext of D3 for 'all values' 

D 5 

D 6 Ext of G6 for spec, values 

D 7 Ext of G6 for values in form 

D 8 Ext of G6 for step, part, form, size 

G 5 Delete (step, part, form) 

G 6 Type (via D extensions) 



B(L)-3058 



LI3T OP JOHHNIAC OPERATIOm - June 1. 1961 
Operation Codas am Banc Eight Huabers. Notes are Base Ten 



p.*9 



OOO 




Proceed to next order In sequence 


001 


THL 


If A < ( c — > left command In M 


002 


TPL 


If A > 0, c— > lert command In N 


OOj TPL 


If overflow, a — > leTt command In H 


010, TRL 


c-- > left command In M 


Oil TIL 


If T, on, c * left command In M 


012 1 T2L 


If T 2 on, o--> left command In M 


011J3L 


If T, on, c-- > left command In M 


020 RA 


Clear A, M — > A 


021 RS 


Clear A, - M - • A 


022 KAV 


Clear A, I M I -> A 


02 j RSV, 


Clear A, | M | — > A 


O.iO MR 


Clear A, M ' MQ rounded — > A 


Ojl MNR 


Clear A, -M • MQ rounded — > A 


032 M 


Clear A, M ■ HQ — > A and HQ 


OJj MN 


Clear A, -H • HQ — > A and HQ 


040 DS 


A ± H — > HQ, p — > A 


041 DNS 


A J- (-«)— > HQ. !• — > A 


050 ST 


A — > M 


051 SOL 


* b ->o M .. 


052 SAL 

053 3HL 
Obo'STQ 


7 * 19~ "^7 M 19 

0* 19— >P M 19 

Clear A, MQ — > A and M 


Oi'l SNQ 


Clear A, -MQ — > A and M 


0o2 SVQ 


Clear A, | MQ |— > A and M 


OuJ SNV 


Clear A,-| MQ I — > A and M 


070 SRC 


Clear MQ, shift A right n places 
Zeros Into A Q . 


071 ' CLC 


Clear MQ, circular shirt or A and 
left n places. Couple MQ f . to A 


072 'LRC 


Clear HQ, power shift A and HQ rl( 
places. Couple A.- to MQ.. 






o A o to ~> o M V 



MQ 



073 LLC 



Clear MQ, power shift A and HQ 
places. Couple zeros Into MQ 



HQ, to A 



39' 



39' 



100'SEL ■ Select 1-0 

Address 
. Part 

SSo 



101 :C 
110 RD 



004 



005 
006 
007 
Oil 
015 
Old 
017 
024 
025 
026 
027 
! 034 
035 
036 
037 
044 
045 
054 
055 
056 



LM 



TOR 
TPR 
TPH 
THH 
Till 
T2H 
TJR 
A 

AV 

sv 

KB 

MNI1 

HA 

KNA 

D 

DN 



057|SHR- 

6G4iAQs| 

ObslsQSj 

06b|AVSj 

O67JSVS 

074JSRH! 

075ICLH: 



i076 



,077 



Clear MQ, M 


-> MQ 




If A < 0, <: 


-y rlp^t command 


In M 


If A s 0, e 


y rlKht ctwvnHiid 


In M 


If overflow,!: 


s rl^ht roiiuiiAi.d 


In M 




s rlKliI "•Jmmand 


In M 


ir t, mi, i! 


y 1-lK.ht cnninand 


In H 


ir t., mi, ii 


s rlKl't ciuninaiiH 


In M 


11' T on. 


y rlK'lt '.'HrunanM 


'.1 M 


M + A - -• 


A 




M t A - .- 


A 




1 M \t A ■ , 


A 




- 1 M | + A ■■ y 


A 




H • HQ ♦ V'i'l 


A * ,(l-, A jl' 


-A and MO 


-H • MQ «- J' VI 


A t J(l"i A ,) 


A and MO 


H - HQ ♦ V-i'l 


A --.■ A ami MC. 




-M • MQ i V VI 


A -- s A and MO 




( A « 2-l'J N) ) ! M y MO, 


1 -y A 


( A * 2' VI MQ ) ;( M) y MO 


r r A 


7*19 a '" 1 2'l*y, 
20*i?7 "■' scP'St 


..M,^ aid ,, 


H « 


2»I A 39 — ' ^H H v< 

20* 1>j -' 20 M j'j 
MO + A 


-j A and M 




- HQ + A - 


-s A and M 




I MQ | ♦ A 


y A and M 




-I MQ | + A - 


-s A and M 




.Shift A rlgh 


t 11 places. 'u.-o:; into A„. 


Circular all ll"t 
Jutiplv MO** 


of A am! MC 
to n yj ; A Q tu H* 


1---1'*, n pla-: 


Power shift A 
Couple A.,(, 


and MQ rlfelit 
toMQj. Q A -^ 


n places. 

o M V 



Power shift A and MQ left n plac 
Couple zeros Into MQ af) , MQ, to A 



*39' 



39" 



Display 
Hoot 

Address part 
of 106 



xxxo 

XXXI 
XXX2 



KtJ c|«K -> fir 



Restore one page 
Advance 1 print line 
Advance 2 print lines 



XXXO Prl. Peed Reader 104 DIS { 
XXXI Sec. Peed Reader 105 HUT | 

XXX2 Peed Punch 106 EJ 

XXX3 Peed Punch 1 Echo 
XXX4 Sel. left 80 col. of Printer 

Ml III; Filler " " " l/ov 

M Copy Order H — > HO Leftmost Selected Col " 
A — > "10 Rightmost " " 

Head drum words to M and memory addresses following numerically. Denoting MQ as 

xxx fifpfufji dpb l,lpl.al,,, the f's determine the first drum address and the 1*8 the last 

drum address, d selects the drum; p, the position of the heads; and b, the bank to be read. 
Read H and words In memory addresses following numerically to drum. MQ has the same 
significance as In 110. 



120 


ETA 


Clear A to Zero 




124 


PI 


MIA — > A 


121 




Clear A 




125 


NI 


-MIA — > A ( — denotes digit Inversion 


122 




Clear A 




126 


PHI 


I M I I A— > A of II J. 


123 




Clear A 




127 


HH- 


-I M | I A— > A 


130 


HTL 


Halt c — > left command In M 


134 


HTR 


Halt c — > right command in M 


131 


H1L 


Halt If Hj on; c — > left command In H 




135 


H1R 


Halt If H, on; c — > right command In M 


132 


H2L 


Halt If H- on; c — > left command In M 




136 


K2R 


Halt If H 2 on; c — ■> right command In H 


111 


H3L 


Halt If H a on; c — > left command In H 




in: 

144 


•BR 


Halt If 1U on; c — > right command in M 

Search all SCRa for Hatch 


140 




Write line burrer 


141 




Read line buffer 




145 




Search all SCRa for Mismatch 


142 




Write SCR 




146 




Display Graphic I/O 


143 




Read SCR 




1*7 




Read Graphic I/O Tablet 


150 












160 












170 













. A. a 
•a Mpr avAar <10.l) dlreoted to the Plotter 
a. aele«t«4 by 10.0 X3TX6 gates only the 
oontenta of th. speolfled wanory word to th. 
Plotter ntlstar with th. following meaning: 



DEFINITIONS 



(flg-Olrele Radius 

j*tfj-l Nagnltud. 

,,11-a-Charaoter 
dIrlt Selection 

M^-Clrole Drawing 

Mgg-Llna Drawing 

M— .Am Seleotlon 

28 N3 9 -T lh«nlt«d. 



A 

MQ 
M 

20*39 
c — > 

I 



Accumulator 

Multiplier Quotient Register 

Word In the M tn addraia In Internal Storage 

Digits In position 2" 20 through 2"^ 9 of the word In A 

Control goea to 

Logical (digit by digit) product or Intersection 



I I | l I 1 | 4T» I • 

I I 



7 I sl» ! 10 I II I IJ 1 1 J 1 14 ilS | IS I itT» 

I I 
... . 1 . . .1 -. 



Left 

Address 



zi|ululz"4iz'srul2> 



a. 



Right 
Operation 



2S|2»Im|si|»I UlHlU'31- sriASh* 



1 



Right 
Address 







VVvc^ 



New TW Ball. 



1'2"3^4$5^6S7<8>9(0)- +*qQwWeErRtTyYuUiIoOpP' laAsSdDfFgGhHjJkKIL; :=*zZxXcCvVbBnNmM,[ .1/? 

l , ?"3#A$5<6^7<8>9(0) - +*q<bwWeErRtTyYuUi.IoOpP. IpAsSdDfFgGhHUkKlL; :=^ZxXrCvVbI 

nNmM, [.]/? 



\>w 



% 



V 



\ 



c 



u. 









p ( O^f tl~i?~(A 



JjE.i'V 



f >_ 










I 












-/*-6<h 






7*- 



9 

o 









-<w< /*-<rw- 






0)01/ 00! OO/oo/oj Ooc/Djof ooo/e/o; 



J[ m. 



r 



tr 



r a c. e 

5 p d c e 



'Jcs <^\ 



010 102.1. 


00000000 


000 


0377 


0000, 


010 


0014 


000 


0000 


0001. 


010 


0020 


000 


0000 


0002, 


010 


0036 


000 


0000 


0003, 


010 


0053 


000 


0000 


0004, 


010 


0070 


000 


0000 


0005, 


010 


0120 


000 


0000 


0006, 


010 


0147 


000 


0000 


0007, 


010 


0252 


000 


0000 


0010, 


010 


0270 


000 


0000 


0014, 


020 


0014 


Oil 


0001 


0015, 


020 


0015 


012 


0002 


0016, 


020 


0016 


013 


0003 


0017, 


120 


0000 


130. 


0014 


("0020, 


024 


0034 


052 


0032 


30021, 


070 


0000 


020 


0033 


(.0022, 


130 


0023 


000 


0000 


0023, 


Oil 


0024 


010 


0032 


0024, 


050 


0027 


120 


0000 


0025. 


130 


0026 


000 


0000 


0026, 


Oil 


0027 


010 


0032 


0030, 


020 


0027 


024 


0035 


0031, 


Oil 


0022 


000 


0000 


0032, 


010 


0000 


000 


0000 


0033, 


000 


0000 


050 


1000 


0034, 


000 


0001 


000 


0000 


0035, 


000 


0000 


000 


0001 


0036, 


024 


0052 


052 


0050 


0037, 


070 


0000 


020 


0051 


0040, 


100 


0002 


000 


0000 


0041, 


130 


0042 


000 


0000 


0042, 


012 


0043 


010 


0047 


0043, 


050 


0045 


000 


0000 


0044, 


020 


0044 


010 


0004 


0046, 


020 


0045 


012 


0041 


0047, 


100 


0002 


100 


0002 


0050, 


010 


0000 


000 


0000 


0051, 


000 


1000 


000 


1777 


0052, 


000 


0001 


000 


0000 


0053, 


024 


0067 


052 


0065 


0054. 


070 


0000 


020 


0066 


0055' 


, 106 


0000 


000 


0000 


0056' 


, 130 


0057 


000 


0000 


0057 i 


013 


0060 


010 


0064 


0060 , 


, 050 


0062 


000 


0000 


0061, 


, 020 


0061 


010 


0005 


0063 


020 


0062 


013 


0056 


0064' 


, 106 


0000 


106 


0000 


0065 


, 010 


0000 


000 


0000 


0066 


,000 


1000 


000 


1777 


0067 


, 000 


0001 


000 


0000 


0070 


, 024 


0114 


052 


0072 


0071 


, 024 


0114 


052 


0103 


0072 


, 020 


2402 


056 


0116 


0073 


, 070 


0025 


056 


0115 


0074 


, 020 


0115 


056 


0075 


0075 


, 056 

nor 


0100 

on-r-7 


020 

r\nn 


7775 

n .1 < i 






'5~/2~ 



0100 


, 004 


0117 


020 


7777 


0101 


, 101 


0115 


020 


0115 


0102 


, 025 


0116 


005 


0103 


0103 


, 010 


2403 


020 


0115 


0104 


, 024 


0113 


056 


0115 


0105 


, 056 


0100 


075 


0117 


0106 


, 006 


0100 


010 


0074 


^0107 


,020 


0115 


025 


0116 


0110 


, 002 


0103 


020 


0115 


0111 


, 024 


0113 


056 


0115 


0112 


, 014 


0074 


000 


0000 


0113 


, 000 


0000 


000 


0001 


0114 


, 000 


0001 


000 


0000 


0115 


, 000 


0000 


050 


7777 


0116 


, 000 


0000 


050 


7777 


0117 


, 000 


0000 


000 


4000 


0120 


, 024 


0142 


052 


0123 


0121 


, 024 


0142 


052 


0136 


0122 


, 020 


0141 


050 


0145 


0123 


, 020 


0000 


056 


0144 


0124 


, 070 


0025 


014 


0137 


0125 


,- 000 


0000 


023 


0000 


0126 


, 007 


0126 


001 


0132 


0127 


, 021 


0145 


002 


0135 


0130 


, 050 


0145 


010 


0131 


0131 


, 106 


0001 


010 


0135 


0132' 


, 004 


0143 


010 


0133 


0133 


, 020 


0133 


010 


0006 


0134 


, 020 


0141 


050 


0145 


0135' 


, 020 


0143 


025 


0144 


0136; 


, 002 


0000 


020 


0143 


0137 , 


, 024 


0141 


056 


0143 


0140 


, 056 


0125 


014 


0125 


0141 


, 000 


0000 


000 


0001 


0142i 


, 000 


0001 


000 


0000 


0147 , 


, 024 


0242 


052 


0220 


0150. 


060 


0250 


056 


0154 


015 1; 


020 


0243 


050 


0250 


0152. 


075 


0034 


010 


0153 


0153; 


020 


0153 


010 


0221 


0154, 


000 


0000 


004 


0000 


0155 , 


, 060 


0251 


006 


0157 


0156, 


, 020 


0241 


024 


0245 


0157, 


, 050 


0245 


075 


0001 


0160, 


, 020 


0160 


010 


0221 


0161, 


, 004 


0251 


075 


0007 


0162. 


020 


0162 


010 


0221 


0163; 


106 


0001 


100 


0004 


0164, 


004 


0251 


075 


0023 


0165, 


020 


0165 


010 


0221 


0166, 


004 


0251 


075 


0034 


0167 


020 


0167 


010 


0221 


0170' 


020 


0244 


125 


0247 


017i; 


, 125 


0246 


125 


0245 


0172 


050 


0250 


101 


0250 


0173 


020 


0244 


125 


0247 


,0174 


, 125 


0246 


124 


0245 


'0175 


, 050 


0250 


101 


0250 


0176 


, 020 


0244 


125 


0247 


0177 


, 124 


0246 


125 


0245 


0200 


, 050 


0250 


101 


0250 


0201 


, 020 


0244 


125 


0247 


0202 


, 124 


0246 


124 


0245 


non*} 


n=;o 


r\n^r\ 


•1 n-i 


ooqo 



V/i-V/ Uttt J.—' I- Ui--tl 



0205. 


, 125 


0246 


125 


0245 


0206 j 


,050 


0250 


101 


0250 


0207 


, 020 


0244 


124 


0247 


0210' 


, 125 


0246 


124 


0245 


0211' 


, 050 


0250 


101 


0250 


0212' 


, 020 


0244 


124 


0247 


0213 


, 124 


0246 


125 


0245 


0214' 


, 050 


0250 


101 


0250 


0215' 


, 020 


0244 


124 


0247 


0216' 


, 124 


0246 


124 


0245 


0217! 


, 050 


0250 


101 


0250 


0220 ; 


, 010 


0000 


000 


0000 


0221. 


, 024 


0242 


052 


0240 


0222 s 


, 020 


0250 


014 


0231 


0223. 


, 020 


0247 


075 


0001 
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